home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -in_the_mag- / pdselect / ispell_yam / rexx / ispell_lookup.rexx < prev    next >
OS/2 REXX Batch file  |  2000-03-08  |  2KB  |  65 lines
  1. /*-------------------------------------------------------------------------------------------------
  2.  
  3.    iSpell_lookup.rexx 1.3
  4.  
  5.    Brecht Machiels <darklite@flashmail.com>
  6.    Markus K.Maier <mkm@gmx.de>
  7.      
  8. ---------------------------------------------------------------------------------------------------
  9.  
  10. $VER: iSpell_lookup v1.3
  11. $AUTHOR: Copyright © 1999 Brecht Machiels, Markus K.Maier
  12. $DESCRIPTION: Lookup feature for TextEditor.mcc & iSpell
  13.  
  14. --> OPTIONS <------------------------------------------------------------------------------------*/
  15.  
  16. BINPATH = "iSpell:bin/"
  17.  
  18. /*-----------------------------------------------------------------------------------------------*/
  19.  
  20. PARSE ARG word
  21.  
  22. OPTIONS RESULTS
  23.  
  24. a = OPEN('envvar', 'ENV:ISPELLYAM', 'R')
  25. IF a = 0 THEN DO
  26.   ADDRESS 'AREXX' 'YAM:Rexx/iSpell_lang'
  27.   DO UNTIL a = 1
  28.     a = OPEN('envvar', 'ENV:ISPELLYAM', 'R')
  29.    END
  30.  END
  31. language = READLN('envvar')
  32. CLOSE('envvar')
  33.  
  34. IF SHOW('P', 'IRexxSpell') THEN DO
  35.   a = OPEN('currentlang', 'ENV:ISPELLMR', 'R')
  36.   IF a = 0 THEN DO
  37.     ADDRESS 'IRexxSpell' 'EXIT'
  38.     EXIT
  39.    END
  40.   IF language ~= READLN('currentlang') THEN DO
  41.     ADDRESS 'IRexxSpell' 'EXIT'
  42.     PRAGMA('S', 10240)
  43.     ADDRESS 'COMMAND' 'run <nil: >nil: 'BINPATH'iSpell -d'language' -r >nil: <nil:'
  44.     ADDRESS 'COMMAND' 'waitforport IRexxSpell'
  45.    END
  46.   CLOSE('currentlang')
  47.  END
  48. ELSE DO
  49.   PRAGMA('S', 10240)
  50.   ADDRESS 'COMMAND' 'run <nil: >nil: 'BINPATH'iSpell -d'language' -r >nil: <nil:'
  51.   ADDRESS 'COMMAND' 'waitforport IRexxSpell'
  52.   ADDRESS 'COMMAND' 'setenv ISPELLMR 'language
  53.  END
  54.  
  55. IF VERIFY(SUBSTR(word, 2), 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'M') = 0 THEN
  56.   ADDRESS 'IRexxSpell' 'QUICKCHECK 'word''
  57. ELSE
  58.   ADDRESS 'IRexxSpell' 'QUICKCHECK 'TRANSLATE(word, 'abcdefghijklmnopqrstuvwxyz', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ')''
  59. IF result = 'bad' THEN
  60.   ADDRESS 'COMMAND' 'setenv Found 0'
  61. ELSE
  62.   ADDRESS 'COMMAND' 'setenv Found 1'
  63.  
  64. EXIT
  65.